home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / riddle (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  181 lines
  1. 100 POKE53281,0:POKE53280,0:POKE53272,23
  2. 105 PRINTCHR$(147):T$="***     [210][201][196][196][204][197][211]     ***"
  3. 110 DEF FNT(X)=(40-LEN(T$))/2
  4. 115 Y=11:X1=1:X2=11:POKE 214,Y:PRINT:PRINTTAB(FNT(.))T$
  5. 120 FOR I=X2 TO X1 STEP-1:PRINTCHR$(147):POKE214,I:PRINT:PRINTTAB(FNT(.))T$
  6. 125 FOR P=1TO2:NEXT:POKE646,INT(RND(1)*(16-2)+2):NEXT:X2=X2-1
  7. 130 IF X2=8THEN150
  8. 135 FORI=X1TOX2:PRINTCHR$(147):POKE214,I:PRINT:PRINTTAB(FNT(.))T$
  9. 140 FOR P=1TO2:NEXT:POKE646,INT(RND(1)*(16-2)+2):NEXT:X1=X1+1
  10. 145 GOTO120
  11. 150 PRINT"[147]":GOSUB391:PRINT"[153]                                        [146]";
  12. 155 PRINT"                                        [146]";
  13. 160 PRINT"                                        [146]";
  14. 165 PRINT"                [210][201][196][196][204][197][211]                 [146]";
  15. 170 PRINT"                                        [146]";
  16. 175 PRINT"[153]                                        [146]";
  17. 180 PRINT"                                        [146]":GOSUB391:GOSUB360
  18. 185 GOSUB290
  19. 190 GOTO500
  20. 250 PRINT"             [212]HAT'S RIGHT!              [146]"
  21. 260 GOSUB300:GOSUB391:RETURN
  22. 270 K=K+1:PRINT"[150]             [212]RY AGAIN!                 [146]"
  23. 275 GOSUB330:GOSUB392:RETURN
  24. 290 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE
  25. 294 [161]R$:[139]R$[179][177][199](32)[167]294
  26. 296 [142]
  27. 300 [143] <YES> SOUND
  28. 305 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  29. 310 [151]54296,15:[151]54277,42:[151]54278,250
  30. 315 [151]54276,23:[151]54273,23:[151]54272,191
  31. 320 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  32. 325 [151]54296,0:[142]
  33. 330 [143] <YES> SOUND
  34. 335 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  35. 340 [151]54296,15:[151]54277,18:[151]54278,242
  36. 345 [151]54276,33:[151]54273,4:[151]54272,48
  37. 350 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  38. 355 [151]54296,0:[142]
  39. 360 [143] <BLIP> SOUND
  40. 365 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  41. 370 [151]54296,7:[151]54277,42:[151]54278,250
  42. 375 [151]54276,23:[151]54273,23:[151]54272,191
  43. 380 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  44. 385 [151]54296,0:[142]
  45. 390 [129]T[178]1[164]600:[130]:[142]
  46. 391 [129]T[178]1[164]1000:[130]:[142]
  47. 392 [129]T[178]1[164]2000:[130]:[142]
  48. 393 [129]T[178]1[164]3000:[130]:[142]
  49. 394 [129]T[178]1[164]4000:[130]:[142]
  50. 395 [129]T[178]1[164]5000:[130]:[142]
  51. 500 [153]"LOAD              RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)              WAIT"
  52. 505 [153]"     (null)HIS IS A RIDDLE GAME.
  53. 510 PRINT"     [201] WILL SHOW YOU A RIDDLE.....
  54. 515 [153]"              ATN(null)STR$.....
  55. 520 PRINT"     [217]OU MUST QUESS THE RIDDLE. 
  56. 525 [141]290
  57. 1000 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #1
  58. 1005 PRINT"[159] * [201] GO UP, UP, UP, UP.
  59. 1010 [153]" * RIGHT$ HAVE GRASS ON ME.
  60. 1015 PRINT" * [217]OU CAN RUN UP AND DOWN ON ME.
  61. 1020 [153]" (null)HAT AM RIGHT$?  PRINT  HILL  FOX  WATER OPEN":[141]391
  62. 1030 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  63. 1040 [133] A$
  64. 1050 [139]A$[178]"FOX"[167]1080
  65. 1060 [139]A$[178]"WATER"[167]1080
  66. 1070 [139]A$[178]"HILL"[167][141]250:[137]1100
  67. 1080 [141]270:[137]1000
  68. 1100 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #2
  69. 1105 PRINT"[159] * [201] AM WHITE.
  70. 1110 [153]" * RIGHT$ FALL FROM THE SKY.
  71. 1115 PRINT" * [195]HILDREN PLAY WITH ME.
  72. 1120 [153]" (null)HAT AM RIGHT$?  PRINT  SUN  RAIN  SNOW  OPEN":[141]391
  73. 1130 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  74. 1140 [133] A$
  75. 1150 [139]A$[178]"SUN"[167]1180
  76. 1160 [139]A$[178]"RAIN"[167]1180
  77. 1170 [139]A$[178]"SNOW"[167][141]250:[137]1200
  78. 1180 [141]270:[137]1100
  79. 1200 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #3
  80. 1205 PRINT"[159] * [201] AM WET.
  81. 1210 [153]" * ASCISH LIVE IN ME.
  82. 1215 PRINT" * [196]UCKS SIT ON ME.
  83. 1220 [153]" (null)HAT AM RIGHT$?  PRINT  WATER  BOX  RAIN  OPEN":[141]391
  84. 1230 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  85. 1240 [133] A$
  86. 1250 [139]A$[178]"BOX"[167]1280
  87. 1260 [139]A$[178]"RAIN"[167]1280
  88. 1270 [139]A$[178]"WATER"[167][141]250:[137]1300
  89. 1280 [141]270:[137]1200
  90. 1300 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #4
  91. 1305 PRINT"[159] * [201] AM A SWIMMER.
  92. 1310 [153]" * RIGHT$ LIKE THE WATER.
  93. 1315 PRINT" * [201] HAVE NO FEET.
  94. 1320 [153]" (null)HAT AM RIGHT$?  PRINT  FOX  FISH  DUCK    OPEN":[141]391
  95. 1330 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  96. 1340 [133] A$
  97. 1350 [139]A$[178]"FOX"[167]1380
  98. 1360 [139]A$[178]"DUCK"[167]1380
  99. 1370 [139]A$[178]"FISH"[167][141]250:[137]1400
  100. 1380 [141]270:[137]1300
  101. 1400 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #5
  102. 1405 PRINT"[159] * [201] HIDE IN THE GRASS.
  103. 1410 [153]" * RIGHT$ HAVE NO FEET.
  104. 1415 PRINT" * [194]IRDS LIKE TO EAT ME.
  105. 1420 [153]" (null)HAT AM RIGHT$?  PRINT  FISH  SNOW  WORM   OPEN":[141]391
  106. 1430 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  107. 1440 [133] A$
  108. 1450 [139]A$[178]"FISH"[167]1480
  109. 1460 [139]A$[178]"SNOW"[167]1480
  110. 1470 [139]A$[178]"WORM"[167][141]250:[137]1500
  111. 1480 [141]270:[137]1400
  112. 1500 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #6
  113. 1505 PRINT"[159] * [201] HAVE FOUR LEGS.
  114. 1510 [153]" * RIGHT$ RUN AFTER BIRDS.
  115. 1515 PRINT" * [201] DO NOT EAT WORMS.
  116. 1520 [153]" (null)HAT AM RIGHT$?  PRINT  BUG  DUCK  TIGER   OPEN":[141]391
  117. 1530 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  118. 1540 [133] A$
  119. 1550 [139]A$[178]"BUG"[167]1580
  120. 1560 [139]A$[178]"DUCK"[167]1580
  121. 1570 [139]A$[178]"TIGER"[167][141]250:[137]1600
  122. 1580 [141]270:[137]1500
  123. 1600 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #7
  124. 1605 PRINT"[159] * [201] HAVE TWO FEET.
  125. 1610 [153]" * RIGHT$ EAT MICE.
  126. 1615 PRINT" * [201] HAVE FEATHERS.
  127. 1620 [153]" (null)HAT AM RIGHT$?PRINT  OWL  HEN  PUPPY  OPEN":[141]391
  128. 1630 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  129. 1640 [133] A$
  130. 1650 [139]A$[178]"HEN"[167]1680
  131. 1660 [139]A$[178]"PUPPY"[167]1680
  132. 1670 [139]A$[178]"OWL"[167][141]250:[137]1700
  133. 1680 [141]270:[137]1600
  134. 1700 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #8
  135. 1705 PRINT"[159] * [201] HAVE TWO HANDS.
  136. 1710 [153]" * RIGHT$ HANG ON THE WALL.
  137. 1715 PRINT" * [201] HAVE 12 NUMBERS.
  138. 1720 [153]" (null)HAT AM RIGHT$?PRINT  BELL  PICTURE  CLOCK OPEN":[141]391
  139. 1730 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  140. 1740 [133] A$
  141. 1750 [139]A$[178]"BELL"[167]1780
  142. 1760 [139]A$[178]"PICTURE"[167]1780
  143. 1770 [139]A$[178]"CLOCK"[167][141]250:[137]1800
  144. 1780 [141]270:[137]1700
  145. 1800 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #9
  146. 1805 PRINT"[159] * [201] HAVE FOUR WHEELS.
  147. 1810 [153]" * RIGHT$ HAVE A ROOF.
  148. 1815 PRINT" * [201] HAVE LOTS OF WINDOWS.
  149. 1820 [153]" (null)HAT AM RIGHT$?PRINT  WAGON  BUS  PLANE   OPEN":[141]391
  150. 1830 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  151. 1840 [133] A$
  152. 1850 [139]A$[178]"WAGON"[167]1880
  153. 1860 [139]A$[178]"PLANE"[167]1880
  154. 1870 [139]A$[178]"BUS"[167][141]250:[137]1900
  155. 1880 [141]270:[137]1800
  156. 1900 [153]"LOADPRINT CHR$UESS THIS RIDDLE.             #10
  157. 1905 PRINT"[159] * [201] HAVE FOUR FEET.
  158. 1910 [153]" * RIGHT$ HAVE A BACK.
  159. 1915 PRINT" * [208]EOPLE SIT ON ME,
  160. 1920 [153]" (null)HAT AM RIGHT$?PRINT  CHAIR  BED  TABLE   OPEN":[141]391
  161. 1930 [153]" >>>> (null)YPE THE CORRECT WORD!SYS":[141]360
  162. 1940 [133] A$
  163. 1950 [139]A$[178]"BED"[167]1980
  164. 1960 [139]A$[178]"TABLE"[167]1980
  165. 1970 [139]A$[178]"CHAIR"[167][141]250:[137]2000
  166. 1980 [141]270:[137]1900
  167. 2000 [153]"LOADSYS               (null)LEN(null)(null)VAL PEEK(null)ATN(null)STR$              WAIT"
  168. 2010 [139]K[178]0[167] [153]"SYS               VAL(null)LENVAL(null)(null)VAL(null)(null)!!!             WAIT"
  169. 2015 [139]K[178]0[167][141]300:[141]394:[137]2030
  170. 2020 [153]"DEF (null)OU HAVE MADE"K"BLOOPERS.":[141]330:[141]394
  171. 2030 [153]"PRINT (null)OU HAVE A CHOICE:
  172. 2040 PRINT" [208]RESS  [208] [146] TO PLAY AGAIN.
  173. 2050 [153]" (null)RESS  (null) WAIT TO GO TO THE (null)VAL(null)(null).
  174. 2060 GETR$:IFR$<>"P"ANDR$<>"M"THEN2060
  175. 2070 IFR$="P"THENRESTORE:GOTO100
  176. 2075 PRINT"[147] [210]ETURNING TO THE DISK MENU
  177. 2080 [147]"MENU",8
  178. 2085 [138]
  179. 2090 [128]
  180. 3000 [143] WHC 92:06:06
  181.